diff --git a/foreign/c/primitives/gauche.scm b/foreign/c/primitives/gauche.scm
index 63d9b26..8c9a10c 100644
--- a/foreign/c/primitives/gauche.scm
+++ b/foreign/c/primitives/gauche.scm
@@ -201,13 +201,8 @@
                                                  c-function
                                                  (size-of-type return-type)
                                                  arguments)))
-          (display "Calling C function: ")
-          (write c-name)
-          (newline)
-          (display "HERE SCM:")
-          (write return-pointer)
-          (newline)
-          (cond ((not (equal? return-type 'void))
+          (cond #;((equal? return-type 'pointer) return-pointer)
+                ((not (equal? return-type 'void))
                  (pointer-get return-pointer return-type 0))))))))
 
 (define-syntax define-c-procedure
diff --git a/tests/primitives.scm b/tests/primitives.scm
index ec97a55..679fa8e 100644
--- a/tests/primitives.scm
+++ b/tests/primitives.scm
@@ -309,6 +309,8 @@
 (define c-string1 (string->c-utf8 "test123"))
 (debug (c-utf8->string c-string1))
 (debug (c-utf8->string (c-strcat (string->c-utf8 "con1") (string->c-utf8 "cat1"))))
+(debug (c-utf8->string (c-strcat (string->c-utf8 "con2")
+                                                   (string->c-utf8 "cat2"))))
 (assert equal? (string=? (c-utf8->string (c-strcat (string->c-utf8 "con2")
                                                    (string->c-utf8 "cat2")))
                     "con2cat2") #t)