X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=glib%2Fgobject.meta.lisp;h=c316dfbb733e8e3eb92a9f40da991fe436a968b6;hb=84fb40788d8b8c0c0dc5ad66ee02da0519c4676f;hp=abf61a57c7d6a2659ebeb9c2768066af919ade9a;hpb=8cf5dc53b7c1b44e0ff59c3f23e49044196e8772;p=cl-gtk2.git

diff --git a/glib/gobject.meta.lisp b/glib/gobject.meta.lisp
index abf61a5..c316dfb 100644
--- a/glib/gobject.meta.lisp
+++ b/glib/gobject.meta.lisp
@@ -37,7 +37,7 @@
 
 (defmethod initialize-instance :after ((object gobject-class) &key &allow-other-keys)
   (register-object-type (gobject-class-g-type-name object) (class-name object))
-  (initialize-gobject-class-g-type object))
+  (at-init (initialize-gobject-class-g-type object)))
 
 (defclass gobject-direct-slot-definition (standard-direct-slot-definition)
   ((g-property-type :initform nil