1 files changed, 1 insertions, 0 deletions
diff --git a/objcl.lisp b/objcl.lisp
index 5fcafd4..bb90c71 100644
--- a/objcl.lisp
+++ b/objcl.lisp
@@ -285,6 +285,7 @@
             (typecase value
               ((or objc-id objc-class objc-selector objc-exception)
                (pointer-to value))
+              (string    (foreign-string-alloc value))
               (otherwise value)))
       (setf type
             (foreign-string-alloc (type-name->type-id type-name)))