diff --git a/coreblas/compute/core_zgeadd.c b/coreblas/compute/core_zgeadd.c
index 3372e5c15eebc163483d5e0951433d1f2e78585d..6cb2457a598191bfe8bb2bd229110008df721344 100644
--- a/coreblas/compute/core_zgeadd.c
+++ b/coreblas/compute/core_zgeadd.c
@@ -119,8 +119,7 @@ int CORE_zgeadd(cham_trans_t trans, int M, int N,
                              M, N, 0., 0., B, LDB );
     }
     else if ( beta != 1. ) {
-        LAPACKE_zlascl_work( LAPACK_COL_MAJOR, 'G',
-                             0, 0, 1., beta, M, N, B, LDB );
+        CORE_zlascal( ChamUpperLower, M, N, beta, B, LDB );
     }
 
     if( trans == ChamNoTrans ) {