diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 808aeb29dc..fc0822d311 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -8,6 +8,15 @@
    2002-12-01 13:30 UTC+0100 Foo Bar <foo.bar@foobar.org>
 */
 
+2007-04-14 11:56 UTC+0100 Viktor Szakats (harbour.01 syenar.hu)
+   * harbour/source/debug/dbgtarr.prg
+     ! Fixed unclosed #if construct.
+       Question: What does HB_NO_READDBG do?
+
+   * harbour/source/rtl/tget.prg
+     ! Removed :Assign() call from :UpdateBuffer() to close 
+       the functionality to CA-Cl*pper.
+
 2007-04-13 19:05 UTC+0200 Lorenzo Fiorini (lorenzo.fiorini/at/gmail.com)
   * harbour/include/Makefile
     ! added install of hbcompat.ch
diff --git a/harbour/source/debug/dbgtarr.prg b/harbour/source/debug/dbgtarr.prg
index 9a27f061d0..c5ed93f278 100644
--- a/harbour/source/debug/dbgtarr.prg
+++ b/harbour/source/debug/dbgtarr.prg
@@ -313,7 +313,9 @@ METHOD doGet( oBro, pItem, nSet ) Class TDBGArray
     HB_SYMBOL_UNUSED( pItem )
     HB_SYMBOL_UNUSED( nSet )
 
-RETURN  nil
+#endif
+
+RETURN nil
 
 function __DbgArrays( aArray, cArrayName, lEditable )
 
diff --git a/harbour/source/rtl/tget.prg b/harbour/source/rtl/tget.prg
index 53e01b2ea5..4ac30e2983 100644
--- a/harbour/source/rtl/tget.prg
+++ b/harbour/source/rtl/tget.prg
@@ -372,15 +372,8 @@ return Self
 METHOD UpdateBuffer() CLASS Get
 
    if ::hasFocus
-
       ::buffer := ::PutMask()
-
-      IF ::lEdit
-         ::Assign()
-      ENDIF
-
       ::Display()
-
    endif
 
 return Self