--- a/DebugView.st	Thu Apr 18 13:36:45 1996 +0200
+++ b/DebugView.st	Thu Apr 18 16:52:30 1996 +0200
@@ -152,18 +152,6 @@
     "Debugger enterWithMessage:'hi there'"
 !
 
-lowSpaceCleanup 
-    "in low memory situations, give up cached debuggers"
-
-    self newDebugger
-
-    "
-     DebugView lowSpaceCleanup
-    "
-
-    "Modified: 22.2.1996 / 17:58:16 / cg"
-!
-
 new
     "return a new DebugView - return a cached debugger if it already
      exists"
@@ -195,18 +183,6 @@
     ^ debugger
 !
 
-newDebugger
-    "force creation of a new debugger"
-
-    CachedDebugger := nil.
-    CachedExclusive := nil.
-    OpenDebuggers := nil.
-
-    "
-     DebugView newDebugger
-    "
-!
-
 newExclusive
     "return a debugger for exclusive display access"
 
@@ -244,6 +220,34 @@
     ^ nil
 ! !
 
+!DebugView class methodsFor:'cleanup'!
+
+lowSpaceCleanup 
+    "in low memory situations, give up cached debuggers"
+
+    CachedDebugger := nil.
+    CachedExclusive := nil.
+    OpenDebuggers := nil.
+
+    "
+     DebugView lowSpaceCleanup
+    "
+
+    "Modified: 18.4.1996 / 16:48:03 / cg"
+!
+
+newDebugger
+    "force creation of a new debugger"
+
+    CachedDebugger := nil.
+    CachedExclusive := nil.
+    OpenDebuggers := nil.
+
+    "
+     DebugView newDebugger
+    "
+! !
+
 !DebugView methodsFor:'basic'!
 
 enter
@@ -2495,5 +2499,5 @@
 !DebugView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.73 1996-04-13 22:19:09 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.74 1996-04-18 14:52:30 cg Exp $'
 ! !