# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 885819221 -3600
# Node ID 05adf036c0ac7a7b3dd82e62808e35bcd0ef5c21
# Parent  0d5a50fe59f455d8311f7363d2034d12c0b514ac
checkin from browser

diff -r 0d5a50fe59f4 -r 05adf036c0ac ResourceRetriever.st
--- a/ResourceRetriever.st	Fri Jan 23 19:05:04 1998 +0100
+++ b/ResourceRetriever.st	Mon Jan 26 13:53:41 1998 +0100
@@ -247,12 +247,16 @@
      or if labelText not nil:
         (#ResourceRetriever className selector labelText)
     "
+    |myClassName|
+
+    myClassName := self class name.
     labelText isNil ifTrue:[
-        ^ Array with:(self class name) with:className with:selector
+        ^ Array with:myClassName with:className with:selector
     ] ifFalse:[
-        ^ Array with:(self class name) with:className with:selector with:labelText
+        ^ Array with:myClassName with:className with:selector with:labelText
     ].
 
+    "Modified: / 26.1.1998 / 13:52:43 / cg"
 ! !
 
 !ResourceRetriever methodsFor:'testing'!