--- a/liboctave/Sparse.cc	Wed Jan 19 17:55:56 2011 -0500
+++ b/liboctave/Sparse.cc	Thu Jan 20 02:46:51 2011 +0100
@@ -350,13 +350,13 @@
           else
             {
               // Pick the last one.
-              for (octave_idx_type i = 1; i < n; i++)
+              for (octave_idx_type i = 0; i < n; i++)
                 {
                   if (rd[i] != l)
                     {
                       l = rd[i];
-                      rrd[++k] = a0;
-                      rri[k] = rd[i];
+                      rri[++k] = rd[i];
+                      rrd[k] = a0;
                     }
                 }
             }
@@ -384,7 +384,10 @@
           // Bucket sort.
           OCTAVE_LOCAL_BUFFER (octave_idx_type, sidx, n);
           for (octave_idx_type i = 0; i < n; i++)
-            sidx[ci[cd[i]+1]++] = rd[i];
+            if (rl == 1)
+              sidx[ci[cd[i]+1]++] = rd[0];
+            else
+              sidx[ci[cd[i]+1]++] = rd[i];
 
           // Subsorts. We don't need a stable sort, all values are equal.
           xcidx(0) = 0;
@@ -525,7 +528,10 @@
       for (octave_idx_type i = 0; i < n; i++)
         {
           idx_pair& p = spairs[ci[cd[i]+1]++];
-          p.first = rd[i];
+          if (rl == 1)
+            p.first = rd[0];
+          else
+            p.first = rd[i];
           p.second = i;
         }