diff --git a/collects/profj/libs/java/lang/installer.ss b/collects/profj/libs/java/lang/installer.ss
index e93e91d125..e810699e01 100644
--- a/collects/profj/libs/java/lang/installer.ss
+++ b/collects/profj/libs/java/lang/installer.ss
@@ -8,7 +8,8 @@
       (let ([javac
 	     (lambda (file)
 	       (parameterize ([current-load-relative-directory
-			       java.lang])
+			       java.lang]
+                              [current-directory java.lang])
 		 (compile-java 'file
 			       'file
 			       'full
diff --git a/collects/profj/tool.ss b/collects/profj/tool.ss
index 6224db51a1..8aa9156e15 100644
--- a/collects/profj/tool.ss
+++ b/collects/profj/tool.ss
@@ -376,8 +376,8 @@
                                 (val-editor (caddr example))
                                 (val (parse-expression (open-input-text-editor val-editor) val-editor level)))
                            (compile-interactions-ast
-                            (make-var-init (make-var-decl name null type #f #f) val #f #f)
-                            val-editor level type-recs)))
+                            (make-var-init (make-var-decl name null type #f #f) val #f)
+                            val-editor level type-recs #t)))
                        contents)
                   (process-extras (cdr extras) type-recs))))
               ((test-case? (car extras))