--- build-guile-gtk-1.2.~1.21.~	2003-08-11 10:31:21.000000000 +1000
+++ build-guile-gtk-1.2	2003-08-11 10:32:04.000000000 +1000
@@ -943,6 +943,11 @@
       (if deprecated?
 	  (@ "  sgtk_issue_deprecation_warning (~s);~%" deprecated?))
 
+      ;; initializer code, if any
+      (let ((initcode (get-opt-val opts 'initcode #f)))
+	(if initcode
+	    (@ "  ~a;~%" initcode)))
+
       (cond
        (n-hack
 	(for-each (lambda (p)