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