diff --git a/retropikzel/pffi/v0-2-0/main.scm b/retropikzel/pffi/v0-2-0/main.scm
index 38679a0..04e5226 100644
--- a/retropikzel/pffi/v0-2-0/main.scm
+++ b/retropikzel/pffi/v0-2-0/main.scm
@@ -78,6 +78,11 @@
           pffi-pointer-deref)
   (begin
 
+
+    #|doc Testing multiline comment |#
+
+
+
     (define library-version "v0-2-0")
     (define slash (cond-expand (windows (string #\\)) (else "/")))
 
diff --git a/retropikzel/pffi/v0-2-0/main.sld b/retropikzel/pffi/v0-2-0/main.sld
index 38679a0..04e5226 100644
--- a/retropikzel/pffi/v0-2-0/main.sld
+++ b/retropikzel/pffi/v0-2-0/main.sld
@@ -78,6 +78,11 @@
           pffi-pointer-deref)
   (begin
 
+
+    #|doc Testing multiline comment |#
+
+
+
     (define library-version "v0-2-0")
     (define slash (cond-expand (windows (string #\\)) (else "/")))
 
diff --git a/retropikzel/pffi/v0-2-0/sagittarius.scm b/retropikzel/pffi/v0-2-0/sagittarius.scm
index e4928fc..cdc6509 100644
--- a/retropikzel/pffi/v0-2-0/sagittarius.scm
+++ b/retropikzel/pffi/v0-2-0/sagittarius.scm
@@ -95,7 +95,9 @@
 
     (define pffi-pointer->string
       (lambda (pointer)
-        (pointer->string pointer)))
+        (if (string? pointer)
+          pointer
+          (pointer->string pointer))))
 
     (define pffi-shared-object-load
       (lambda (header path)