--- a/DebugView.st	Thu Oct 18 18:52:49 2001 +0200
+++ b/DebugView.st	Mon Oct 22 10:24:06 2001 +0200
@@ -2071,13 +2071,14 @@
 
     <resource: #programMenu>
 
-    |m|
-
-    m := self class menuSpec.
-    m := m decodeAsLiteralArray.
-    m receiver:self.
-    m findGuiResourcesIn:self.
-    ^ m.
+    ^ self menuFromSpec:self class menuSpec.
+"/    |m|
+"/
+"/    m := self class menuSpec.
+"/    m := m decodeAsLiteralArray.
+"/    m receiver:self.
+"/    m findGuiResourcesIn:self.
+"/    ^ m.
 !
 
 reinitialize
@@ -4989,6 +4990,6 @@
 !DebugView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.287 2001-10-18 13:00:24 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.288 2001-10-22 08:24:06 cg Exp $'
 ! !
 DebugView initialize!