#REFACTORING by cg
authorClaus Gittinger <cg@exept.de>
Thu, 26 Jan 2017 14:01:45 +0100
changeset 4196 c1d94ff7867e
parent 4195 42095728a4e9
child 4197 a026f170f9c9
#REFACTORING by cg class: CVSSourceCodeManager changed: #setSymbolicName:revision:overWrite:classes:
CVSSourceCodeManager.st
--- a/CVSSourceCodeManager.st	Thu Jan 26 11:20:53 2017 +0100
+++ b/CVSSourceCodeManager.st	Thu Jan 26 14:01:45 2017 +0100
@@ -5162,7 +5162,7 @@
                         ] ifFalse:[
                             alreadyWarned == 1 ifTrue:[
                                 answer := Dialog confirmWithCancel:('Cannot tag unloaded class: %1.\\Suppress further warnings?' withCRs bindWith:cls name).
-                                answer == nil ifTrue:[^ self].
+                                answer isNil ifTrue:[^ self].
                                 answer == true ifTrue:[
                                     alreadyWarned := alreadyWarned + 1.
                                 ].