diff --git a/harbour/source/rtl/transfrm.c b/harbour/source/rtl/transfrm.c
index 85f16f1dd4..1a9e70f928 100644
--- a/harbour/source/rtl/transfrm.c
+++ b/harbour/source/rtl/transfrm.c
@@ -448,6 +448,8 @@ HB_FUNC( TRANSFORM )
       
             hb_xfree( szStr );
          }
+         else
+            ulResultPos = 0;
       }
 
       /* ======================================================= */