diff --git a/scheme/cyclone/cgen.sld b/scheme/cyclone/cgen.sld
index c765049e..0737b157 100644
--- a/scheme/cyclone/cgen.sld
+++ b/scheme/cyclone/cgen.sld
@@ -2132,9 +2132,13 @@
     ;; Initialize global table
     (for-each
       (lambda (global)
-        (emits "\n  add_global((object *) &")
-        (emits (cgen:mangle-global (car global)))
-        (emits ");"))
+        (let ((mglo (cgen:mangle-global (car global))))
+          (emits (string-append
+                   "\n  add_global2(\""
+                   mglo
+                   "\", (object *) &"))
+          (emits mglo)
+          (emits ");")))
       *globals*)
     (emit "")