diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 33c4cdc9ce..5d5542707a 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -8,6 +8,10 @@
    2002-12-01 23:12 UTC+0100 Foo Bar <foo.bar@foobar.org>
 */
 
+2002-07-12 18:58 UTC+0300 Alexander Kresin <alex@belacy.belgorod.su>
+  * source/debug/debugger.prg
+    ! A bug fixed in commands evaluation
+
 2002-07-11 14:30 UTC-0400 David G. Holm <dholm@jsd-llc.com>
   * config/dos/djgpp.cf
   	+ Added the -lm option to LDFLAGS to enable math error handling.
diff --git a/harbour/source/debug/debugger.prg b/harbour/source/debug/debugger.prg
index 735522f676..f7215bd5bc 100644
--- a/harbour/source/debug/debugger.prg
+++ b/harbour/source/debug/debugger.prg
@@ -1960,8 +1960,10 @@ static function DoCommand( o,cCommand )
 
    for i := 1 to nLocals
       vtmp := __mvGet( o:aCallStack[1][2][i][1] )
-      if vtmp != __vmVarLGet( nProcLevel, o:aCallStack[1][2][i][2] )
-         __vmVarLSet( nProcLevel, o:aCallStack[1][2][i][2], vtmp )
+      if Valtype( vtmp ) != "A"
+         if vtmp != __vmVarLGet( nProcLevel, o:aCallStack[1][2][i][2] )
+            __vmVarLSet( nProcLevel, o:aCallStack[1][2][i][2], vtmp )
+         endif
       endif
    next