From f14ce393d03446e505491d75c0f5c9013f951900 Mon Sep 17 00:00:00 2001
From: Eddie Runia <eddie@runia.com>
Date: Sun, 23 May 1999 11:58:08 +0000
Subject: [PATCH] See changelog

---
 harbour/ChangeLog             | 4 ++++
 harbour/source/rtl/transfrm.c | 6 +++---
 2 files changed, 7 insertions(+), 3 deletions(-)

diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index bf4472b069..0474e50d1a 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -1,3 +1,7 @@
+19990523-12:50 CET Eddie Runia
+  * source/rtl/transfrm.c
+    Modified for by reference. (Forgot I was Captain of that)
+
 19990523-12:20 CET Eddie Runia
   * include/types.h
     modified the IS_* to work for reference passed variables
diff --git a/harbour/source/rtl/transfrm.c b/harbour/source/rtl/transfrm.c
index 0137dc7c64..4b195e027d 100644
--- a/harbour/source/rtl/transfrm.c
+++ b/harbour/source/rtl/transfrm.c
@@ -187,7 +187,7 @@ char *NumPicture( char *szPic, long lPic, int iPicFlags, double dValue,
    PushInteger( iDecimals );                    /* Push decimals            */
    Function( 3 );                               /* 3 Parameters             */
    pItem = &stack.Return;
-   if( pItem->wType == IT_STRING )              /* Is it a string           */
+   if( IS_STRING( pItem ) )                     /* Is it a string           */
    {
       szStr  = pItem->value.szText;
       iCount = 0;
@@ -454,7 +454,7 @@ HARBOUR TRANSFORM( void )
             lPicStart = pPic->wLength - lPic;   /* Get start of template    */
          }
 
-         switch( pExp->wType )
+         switch( pExp->wType & ~IT_BYREF )
          {
             case IT_STRING:
             {
@@ -633,7 +633,7 @@ HARBOUR TRANSFORM( void )
    }
    else                                         /* No picture supplied      */
    {
-      switch( pExp->wType )                     /* Default behaviour        */
+      switch( pExp->wType & ~IT_BYREF )         /* Default behaviour        */
       {
          case IT_STRING:
          {