Index: GObject.xs
===================================================================
RCS file: /cvsroot/gtk2-perl/gtk2-perl-xs/Glib/GObject.xs,v
retrieving revision 1.69
diff -u -d -p -r1.69 GObject.xs
--- GObject.xs	13 Aug 2007 18:37:39 -0000	1.69
+++ GObject.xs	7 Oct 2007 18:11:17 -0000
@@ -931,7 +931,9 @@ that process.
 void
 CLONE (gchar * class)
     CODE:
-    	if (perl_gobject_tracking && strcmp (class, "Glib::Object") == 0)
+	/* !perl_gobjects can happen when no object has been created yet. */
+    	if (perl_gobject_tracking && perl_gobjects &&
+	    strcmp (class, "Glib::Object") == 0)
 	{
 		G_LOCK (perl_gobjects);
 /*g_printerr ("we're in clone: %s\n", class);*/