diff --git a/libs/cyclone/foreign.sld b/libs/cyclone/foreign.sld
index 1d8dab39..cbe2ae47 100644
--- a/libs/cyclone/foreign.sld
+++ b/libs/cyclone/foreign.sld
@@ -161,7 +161,7 @@
            (let ((var (mangle (gensym 'var))))
            (cons
              (string-append 
-               "make_double(" var ", " ,code ");")
+               "make_double(" var ", " ,code ");") TODO: shouldn't this be building a string??
              (string-append "&" var)
            )))
 TODO:
diff --git a/libs/test-foreign.scm b/libs/test-foreign.scm
index f6fbb7d7..4805c71b 100644
--- a/libs/test-foreign.scm
+++ b/libs/test-foreign.scm
@@ -20,6 +20,7 @@
   (test 3 (c-value "1 + 2" integer))
   (test 4 (c-value "2 + 2" my-integer))
   (test "4" (c-value "2 + 2" my-integer-as-string))
+  (test "test" (c-value "\"test\"" string))
 )
 
 (test-group "foreign code"