--- select-carbon.c.old	2006-09-28 17:32:48.000000000 -0600
+++ select-carbon.c	2006-10-06 16:22:22.000000000 -0600
@@ -192,7 +192,11 @@
 	    {
 	      CFDataRef flavor_data;
 	      if (PasteboardCopyItemFlavorData (pasteboard, item_id, flavor_type, &flavor_data) != noErr)
+	      {
 		stderr_out ("Can't get flavor data");
+		SysBeep (30);
+		return Qnil;
+	      }
 	      
 	      Lisp_Object data = make_ext_string (CFDataGetBytePtr (flavor_data), CFDataGetLength (flavor_data), Qcarbon_unicode);
 	      
@@ -211,7 +215,11 @@
 	    {
 	      CFDataRef flavor_data;
 	      if (PasteboardCopyItemFlavorData (pasteboard, item_id, flavor_type, &flavor_data) != noErr)
+	      {
 		stderr_out ("Can't get flavor data");
+		SysBeep (30);
+		return Qnil;
+	      }
 	      
 	      Lisp_Object data = make_string (CFDataGetBytePtr (flavor_data), CFDataGetLength (flavor_data));