From 9233d04df07189e51e2efc6510b4193aed1085ea Mon Sep 17 00:00:00 2001
From: Viktor Szakats <harbour@syenar.net>
Date: Mon, 2 Aug 1999 16:06:07 +0000
Subject: [PATCH] *** empty log message ***

---
 harbour/ChangeLog             | 3 +++
 harbour/source/rtl/setkey.prg | 3 +--
 2 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index a382503296..8fbed5e642 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -1,3 +1,6 @@
+19990802-17:53 GMT+1 Victor Szel <info@szelvesz.hu>
+   ! source/rtl/setkey.prg - Fix: aSetKeys := aClone( OldKeys )
+
 19990802-10:50 EDT Paul Tucker <ptucker@sympatico.ca>
    * makefile.vc
      + added setkey
diff --git a/harbour/source/rtl/setkey.prg b/harbour/source/rtl/setkey.prg
index 0fbf652119..fe447b6f23 100644
--- a/harbour/source/rtl/setkey.prg
+++ b/harbour/source/rtl/setkey.prg
@@ -167,8 +167,7 @@ Function SetKeySave( OldKeys )
       aSetKeys := {}
 
     else
-      aSetKeys := aClone( aSetKeys )
-
+      aSetKeys := aClone( OldKeys )
     endif
 
   endif