minor fix on String>>,

tomooda · May 28, 2024 · 60df2fa · 60df2fa
1 parent 80fd2a7
commit 60df2fa
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/repository/ViennaTalk-Transpiler-Core/String.extension.st b/repository/ViennaTalk-Transpiler-Core/String.extension.st
@@ -8,7 +8,7 @@ String >> , aString [
 		       ifTrue: [ aString string ]
 		       ifFalse: [ aString ].
 	^ [
-	  str isViennaTracingString
+	  str class name = #ViennaTracingString
 		  ifTrue: [ self asViennaTracingString , aString ]
 		  ifFalse: [ super , aString ] ]
 		  on: Error