diff --git a/retropikzel/r7rs-pffi/r7rs-pffi-chibi.stub b/retropikzel/r7rs-pffi/r7rs-pffi-chibi.stub
index b7b50f2..0920995 100644
--- a/retropikzel/r7rs-pffi/r7rs-pffi-chibi.stub
+++ b/retropikzel/r7rs-pffi/r7rs-pffi-chibi.stub
@@ -256,6 +256,6 @@
     if(sexp_procedurep(proc) == 1) {
       puts(\"ITS A PROCEDURE\");
     }
-    return proc->source; //FIXME
+    return (void*)proc; //FIXME
   }")
 (define-c void* (scheme-procedure-to-pointer scheme_procedure_to_pointer) (sexp))
diff --git a/test.scm b/test.scm
index 3c71e89..8729cca 100644
--- a/test.scm
+++ b/test.scm
@@ -771,7 +771,7 @@
              (pffi-pointer-get array 'int (* (pffi-size-of 'int) 1))
              (pffi-pointer-get array 'int (* (pffi-size-of 'int) 2))))
 (newline)
-;(qsort array 3 (pffi-size-of 'int) compare)
+(qsort array 3 (pffi-size-of 'int) compare)
 
 (display "Sorted: ")
 (write (list (pffi-pointer-get array 'int (* (pffi-size-of 'int) 0))