diff --git a/matlab/csminwel1.m b/matlab/csminwel1.m
index 0698c0595..34057fbe7 100644
--- a/matlab/csminwel1.m
+++ b/matlab/csminwel1.m
@@ -288,7 +288,7 @@ while ~done
     %badgh
     stuck = (abs(fh-f) < crit);
     if (~badg) && (~badgh) && (~stuck)
-        H = bfgsi(H,gh-g,xh-x);
+        H = bfgsi1(H,gh-g,xh-x);
     end
     if Verbose
         disp('----')