diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 8e34c1fa50..073fa222fa 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -1,3 +1,11 @@
+19991222-18:20 GMT+1 Ryszard Glab <rglab@imid.med.pl>
+
+    *include/hbexpr.c
+    *source/compiler/expropt.c
+	* fixed generation of pcodes for aliased expressions used in
+	a statement context (the previously selected workarea is popped
+	from the eval stack instead of swapping)
+
 19991220-18:42 GMT+1 Chen Kedem <niki@actcom.co.il>
   * source/rtl/menuto.prg
     + doc for __AtPrompt()
diff --git a/harbour/include/hbexpr.c b/harbour/include/hbexpr.c
index bcda967df1..250b559927 100644
--- a/harbour/include/hbexpr.c
+++ b/harbour/include/hbexpr.c
@@ -2686,7 +2686,7 @@ static HB_EXPR_FUNC( hb_compExprUseAliasExpr )
             HB_EXPR_USE( pSelf->value.asAlias.pExpList, HB_EA_PUSH_POP );
             /* Pop and select again the restored workarea.
              */
-            hb_compGenPCode1( HB_P_SWAPALIAS );
+            hb_compGenPCode1( HB_P_POPALIAS );
          }
          break;
       case HB_EA_DELETE: