--- a/GDBObject.st	Wed Jul 12 16:13:40 2023 +0100
+++ b/GDBObject.st	Wed Jul 12 16:53:48 2023 +0100
@@ -93,7 +93,7 @@
 
     | nmXlated names index properties |
 
-    nmXlated := (nm includes: $-) ifTrue:[ nm copyReplaceAll: $- with: $_] ifFalse:[ nm ].
+    nmXlated := (nm includes: $-) ifTrue:[ (String withAll: nm) replaceAll: $- with: $_] ifFalse:[ nm ].
     index := (names := object class allInstVarNames) indexOf: nmXlated.
     index ~~ 0 ifTrue:[ 
         ^ object instVarAt: index.
@@ -115,7 +115,7 @@
 
     | nmXlated names index properties setter |
 
-    nmXlated := (nm includes: $-) ifTrue:[ nm copyReplaceAll: $- with: $_] ifFalse:[ nm ].
+    nmXlated := (nm includes: $-) ifTrue:[ (String withAll: nm) replaceAll: $- with: $_] ifFalse:[ nm ].
     setter := ('_', nmXlated , ':') asSymbolIfInterned.
     setter notNil and:[ 
         (object respondsTo: setter) ifTrue:[