From 7b30a375ccd71f88b8d080eaa2600187201fecd1 Mon Sep 17 00:00:00 2001
From: Viktor Szakats <harbour@syenar.net>
Date: Wed, 1 Oct 2008 12:57:30 +0000
Subject: [PATCH] fix to prev

---
 harbour/contrib/hbct/ctmisc.prg | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/harbour/contrib/hbct/ctmisc.prg b/harbour/contrib/hbct/ctmisc.prg
index 8f2949d2c1..bdd55510e0 100644
--- a/harbour/contrib/hbct/ctmisc.prg
+++ b/harbour/contrib/hbct/ctmisc.prg
@@ -71,8 +71,8 @@ FUNCTION CENTER( c, n, p, lMode )
    DEFAULT c TO ""
 
    IF ISLOGICAL( p )
-      lMode := c
-      c := NIL
+      lMode := p
+      p := NIL
    ELSE
       DEFAULT lMode TO .F.
    ENDIF