diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 9881f43ca8..3e4a8c9268 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -8,6 +8,10 @@
    2002-12-01 23:12 UTC+0100 Foo Bar <foo.bar@foobar.org>
 */
 
+2004-01-26 8:30 UTC-0800 Luis Krause Mantilla <lkrausem /*at*/ shaw /*dot*/ ca>
+  * source/rtl/tget.prg
+    ! Fixed bug in get class when using "@9" picture with strings
+
 2004-01-26 11:45 UTC+0100 Ryszard Glab <rglab@imid.med.pl>
    * source/compiler/harbour.c
       *fixed generation of codeblock's pcode with debugging info
diff --git a/harbour/source/rtl/tget.prg b/harbour/source/rtl/tget.prg
index 0ad56df5db..2b5fa76347 100644
--- a/harbour/source/rtl/tget.prg
+++ b/harbour/source/rtl/tget.prg
@@ -269,7 +269,7 @@ METHOD ParsePict( cPicture ) CLASS Get
       else
          ::lCleanZero := .f.
       endif
-      ::cPicFunc := StrTran(::cPicFunc, "Z", "")
+      ::cPicFunc := StrTran( ::cPicFunc, "Z", "" )
 
       if ::cPicFunc == "@"
          ::cPicFunc := ""
@@ -307,12 +307,16 @@ METHOD ParsePict( cPicture ) CLASS Get
 
          cNum := Str( ::VarGet() )
          if ( nAt := At( iif( ::lDecRev, ",", "." ), cNum ) ) > 0
-            ::cPicMask := Replicate( '9', nAt - 1 ) + iif( ::lDecRev, ",", "." )
-            ::cPicMask += Replicate( '9', Len( cNum ) - Len( ::cPicMask ) )
+            ::cPicMask := Replicate( "9", nAt - 1 ) + iif( ::lDecRev, ",", "." )
+            ::cPicMask += Replicate( "9", Len( cNum ) - Len( ::cPicMask ) )
          else
-            ::cPicMask := Replicate( '9', Len( cNum ) )
+            ::cPicMask := Replicate( "9", Len( cNum ) )
          endif
 
+      case ::type == "C" .and. ::cPicFunc == "@9"
+         ::cPicMask := Replicate( "9", Len( ::VarGet() ) )
+         ::cPicFunc := ""
+
       endcase
 
    endif
@@ -340,7 +344,7 @@ METHOD ParsePict( cPicture ) CLASS Get
       endif
    endif
 
-return ::cPicFunc + ' ' + ::cPicMask
+return ::cPicFunc + " " + ::cPicMask
 
 //---------------------------------------------------------------------------//