--- a/Java.st	Fri Aug 01 13:41:45 1997 +0000
+++ b/Java.st	Fri Aug 01 19:51:54 1997 +0000
@@ -29,19 +29,6 @@
     ^ self at:aString
 !
 
-classPath
-    ^ ClassPath
-
-    "Created: 7.2.1997 / 19:23:45 / cg"
-    "Modified: 7.2.1997 / 19:23:55 / cg"
-!
-
-classPath:aCollectionOfPaths
-    ClassPath := aCollectionOfPaths asOrderedCollection
-
-    "Created: 7.2.1997 / 19:23:45 / cg"
-!
-
 java_lang_Class
     Java_lang_Class isNil ifTrue:[
         Java_lang_Class := self at:'java.lang.Class'
@@ -66,6 +53,39 @@
     ^ PrettyPrintStyle
 
     "Created: 1.8.1997 / 10:37:57 / cg"
+! !
+
+!Java class methodsFor:'accessing paths'!
+
+addToClassPath:aPath
+    (ClassPath includes:aPath) ifFalse:[
+        ClassPath add:aPath
+    ]
+
+    "Modified: 7.2.1997 / 19:23:55 / cg"
+    "Created: 1.8.1997 / 21:10:07 / cg"
+!
+
+classPath
+    ^ ClassPath
+
+    "Created: 7.2.1997 / 19:23:45 / cg"
+    "Modified: 7.2.1997 / 19:23:55 / cg"
+!
+
+classPath:aCollectionOfPaths
+    ClassPath := aCollectionOfPaths asOrderedCollection
+
+    "Created: 7.2.1997 / 19:23:45 / cg"
+!
+
+removeFromClassPath:aPath
+    (ClassPath includes:aPath) ifTrue:[
+        ClassPath remove:aPath
+    ]
+
+    "Modified: 7.2.1997 / 19:23:55 / cg"
+    "Created: 1.8.1997 / 21:10:21 / cg"
 !
 
 sourceDirectories
@@ -509,6 +529,6 @@
 !Java class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/Java.st,v 1.30 1997/08/01 13:41:45 cg Exp $'
+    ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/Java.st,v 1.31 1997/08/01 19:51:54 cg Exp $'
 ! !
 Java initialize!