Greg Benison <benisong@science.oregonstate.edu>

--- generics.scm.orig	2007-12-10 17:11:25.000000000 -0800
+++ generics.scm	2007-12-10 17:30:52.000000000 -0800
@@ -138,7 +138,12 @@
   "A shorthand for @code{gtype-instance-signal-emit}."
   (apply gtype-instance-signal-emit object name args))
 
-(define %connect (module-ref the-root-module 'connect))
+(define %connect
+ (false-if-exception
+  (module-ref the-root-module 'connect)))
+(if (not %connect)
+ (set! %connect (lambda args (display "would have crashed")))) 
+
 (define-generic-with-docs connect "")
 (define-method (connect . args)
   "The core Guile implementation of the connect(2) POSIX call"