From 244ff053a18be0833edeb2c8e2cf5c136dcbbbd2 Mon Sep 17 00:00:00 2001
From: Ignacio Ortiz de Zuniga <ignacio@fivetech.com>
Date: Mon, 28 Jan 2002 11:36:55 +0000
Subject: [PATCH] 2002-01-28 12:36 UTC+0100 Ignacio Ortiz
 <ignacio@fivetech.com>

---
 harbour/source/rtl/tget.prg | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/harbour/source/rtl/tget.prg b/harbour/source/rtl/tget.prg
index 6665fa4d72..7f31beca25 100644
--- a/harbour/source/rtl/tget.prg
+++ b/harbour/source/rtl/tget.prg
@@ -439,6 +439,9 @@ METHOD VarPut( xValue ) CLASS Get
 
    if ::block != nil
       Eval( ::block, xValue )
+      ::Type     := ValType( xValue )
+      ::nDispLen := NIL
+      ::Picture( ::cPicture )
    endif
 
 return xValue
@@ -1184,4 +1187,4 @@ METHOD Picture( cPicture ) CLASS Get
 
    endif
 
-return ::cPicture
+return ::cPicture
\ No newline at end of file