From ba600ee2d70bf527fa1c026987f4c648744d225b Mon Sep 17 00:00:00 2001
From: Ignacio Ortiz de Zuniga <ignacio@fivetech.com>
Date: Tue, 19 Feb 2002 16:46:09 +0000
Subject: [PATCH] 2002-02-19 17:45 UTC+0100 Ignacio Ortiz
 <ignacio@fivetech.com>

---
 harbour/source/rtl/tget.prg | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/harbour/source/rtl/tget.prg b/harbour/source/rtl/tget.prg
index 386980bdd3..1cb5113d7c 100644
--- a/harbour/source/rtl/tget.prg
+++ b/harbour/source/rtl/tget.prg
@@ -453,7 +453,9 @@ METHOD VarPut( xValue, lReFormat ) CLASS Get
          endif
          ::Type     := ValType( xValue )
          ::nDispLen := NIL
-         ::Picture( ::cPicture )
+         if !Empty( ::cPicture )
+            ::Picture( ::cPicture )
+         endif
       endif
    endif
 
@@ -1229,4 +1231,3 @@ METHOD Block( bBlock ) CLASS Get
    endif
 
 return ::bBlock
-