Index: invoke.lisp
===================================================================
--- invoke.lisp	(revision 669)
+++ invoke.lisp	(working copy)
@@ -552,9 +552,9 @@
   (unless *classpath-manager*
     (when (ignore-errors (jclass "bsh.classpath.ClassManagerImpl"))
       (let* ((urls (jnew-array "java.net.URL" 0))
-	     (manager (new 'bsh.classpath.classmanagerimpl))
-	     (bshclassloader (new 'bshclassloader manager urls)))
-	(#"setClassLoader" 'jsint.import bshclassloader)
+	     (manager (new '|bsh.classpath.ClassManagerImpl|))
+	     (bshclassloader (new '|bsh.classpath.BshClassLoader| manager urls)))
+	(#"setClassLoader" '|jsint.Import| bshclassloader)
 	(setq *classpath-manager* manager)))))
 
 (defun ensure-dynamic-classpath ()
@@ -768,6 +768,7 @@
 (defclass jar-directory (static-file) ())
 
 (defmethod perform ((operation compile-op) (c jar-directory))
+#+nil
   (print-db (pathname-directory (truename (component-pathname c))) (component-name c))
   (unless cl-user::*inhibit-add-to-classpath*
     (cl-user::add-directory-jars-to-class-path (truename (component-pathname c)) t)))