Some more fixed mem-management

diff --git a/glib/gobject.foreign-gobject.lisp b/glib/gobject.foreign-gobject.lisp
index a84c6b3..59360df 100644 (file)
--- a/glib/gobject.foreign-gobject.lisp
+++ b/glib/gobject.foreign-gobject.lisp
@@ -26,7 +26,7 @@
   (unless (slot-boundp obj 'pointer)
     (error "Pointer slot is not initialized for ~A" obj))
   (let* ((pointer (pointer obj))
-         (s (format nil obj)))
+         (s (format nil "~A" obj)))
     (finalize obj
               (lambda ()
                 (handler-case