diff --git a/compile-r7rs.scm b/compile-r7rs.scm
index 5744ac9..65bf66c 100644
--- a/compile-r7rs.scm
+++ b/compile-r7rs.scm
@@ -169,7 +169,8 @@
            (cond
              ((symbol=? compilation-target 'windows) "%0%")
              ((symbol=? compilation-target 'php) "$binname")
-             (else "$(cd -- \"$(dirname \"$0\")\" >/dev/null 2>&1 && pwd -P)/\"$0\""))
+             (else "\"$0\""))
+             ;(else "$(cd -- \"$(dirname \"$0\")\" >/dev/null 2>&1 && pwd -P)/\"$0\""))
            (cond
              ((symbol=? compilation-target 'windows) "")
              ((symbol=? compilation-target 'php) "")
diff --git a/r7rs-php-testfiles/main.scm b/r7rs-php-testfiles/main.scm
index 578074f..a59a21d 100644
--- a/r7rs-php-testfiles/main.scm
+++ b/r7rs-php-testfiles/main.scm
@@ -1,6 +1,10 @@
 (import (scheme base)
         (scheme read)
-        (scheme write))
+        (scheme write)
+        (retropikzel cgi))
 
 (display "Test successfull")
 (newline)
+
+(display (cgi))
+(newline)