Index: /trunk/Ohana/src/libohana/src/gaussj.c
===================================================================
--- /trunk/Ohana/src/libohana/src/gaussj.c	(revision 39368)
+++ /trunk/Ohana/src/libohana/src/gaussj.c	(revision 39369)
@@ -57,5 +57,5 @@
     for (row = 0; row < N; row++) {
       if (!finite(A[row][diag])) { 
-	fprintf (stderr, "infinity\n"); 
+	push_error ("infinity"); 
 	goto escape; 
       }
@@ -90,5 +90,5 @@
     // if pivot[maxcol] is set, we have already done this row: this implies a singular matrix
     if (pivot[maxcol]) { 
-      fprintf (stderr, "singular\n"); 
+      push_error ("singular"); 
       goto escape; 
     }
@@ -103,5 +103,5 @@
     colIndex[diag] = maxcol;
     if (A[maxcol][maxcol] == 0.0) { 
-      fprintf (stderr, "zero pivot\n"); 
+      push_error ("zero pivot"); 
       goto escape;
     }
@@ -143,5 +143,5 @@
 
     if (fabs(growth) > MAX_RANGE) { 
-      fprintf (stderr, "max range\n"); 
+      push_error ("max range"); 
 # if (VERY_VERBOSE)
       fprintf (stderr, "full A matrix:\n");