diff --git a/libs/cyclone/foreign.sld b/libs/cyclone/foreign.sld
index 7d82e001..7011e07e 100644
--- a/libs/cyclone/foreign.sld
+++ b/libs/cyclone/foreign.sld
@@ -34,7 +34,7 @@
           ;    (if (not (string? arg))
           ;        (error "c-value" "Invalid argument: string expected, received " arg)))
           ;  (cdr expr))
-          `((lambda () (Cyc-foreign-value ,code-arg ,type-arg)))))))
+          `((lambda () (Cyc-foreign-value ,code-arg (quote ,type-arg))))))))
 
   (define-syntax c-code
     (er-macro-transformer
diff --git a/libs/test-foreign.scm b/libs/test-foreign.scm
index 3635011f..861de539 100644
--- a/libs/test-foreign.scm
+++ b/libs/test-foreign.scm
@@ -12,7 +12,7 @@
 (define *my-global* #f)
 
 (test-group "foreign value"
-  (test 3 (c-value "1 + 2" 'integer))
+  (test 3 (c-value "1 + 2" integer))
 )
 
 (test-group "foreign code"