diff --git a/GSMDriver.st b/GSMDriver.st
index 538aaa3..ffc0140 100644
--- a/GSMDriver.st
+++ b/GSMDriver.st
@@ -152,7 +152,7 @@ classes.'>
 ]
 
 Object subclass: ProcedureBase [
-    | driver conn |
+    | driver conn success |
 
     ProcedureBase class >> initWith: aHandler phone: aPhone [
         ^ self new
@@ -177,16 +177,18 @@ Object subclass: ProcedureBase [
         driver run.
         driver waitForCompletion.
     ]
-]
-
-
-ProcedureBase subclass: LUProcedure [
-    | success |
 
     success [
         ^ success ifNil: [false]
     ]
 
+    success: aSuc [
+        success := aSuc.
+    ]
+]
+
+
+ProcedureBase subclass: LUProcedure [
     createConnection: aHandler phone: aPhone [
         | lu |
 
@@ -211,7 +213,7 @@ ProcedureBase subclass: LUProcedure [
 
     handleData: aMsg sapi: aSapi [
         aMsg class messageType = GSM48MMMessage msgLUAcc ifTrue: [
-            success := true.
+            self success: true.
         ].
     ]
 ]