diff --git a/Changelog b/Changelog
index 7e29d5c2..796b7cd2 100644
--- a/Changelog
+++ b/Changelog
@@ -1,5 +1,6 @@
 Changelog. A lot less detailed than usual, at least for past
 history.
+2015/07/28: Fix bug in transpose.
 2015/03/20: Introduce some optimizations for conversions to/from.	
 2015/01/05: Fix silly bug in format conversion csr_from_coo.
 	
diff --git a/base/modules/psb_c_base_mat_mod.f90 b/base/modules/psb_c_base_mat_mod.f90
index a032db7c..90db864c 100644
--- a/base/modules/psb_c_base_mat_mod.f90
+++ b/base/modules/psb_c_base_mat_mod.f90
@@ -1873,6 +1873,7 @@ contains
     call a%set_nrows(izero)
     call a%set_ncols(izero)
     call a%set_nzeros(izero)
+    call a%set_sort_status(psb_unsorted_)
     
     return
     
@@ -1904,8 +1905,9 @@ contains
     call move_alloc(a%ia,itemp)
     call move_alloc(a%ja,a%ia)
     call move_alloc(itemp,a%ja)
-    
+        
     call a%set_sorted(.false.)
+    call a%set_sort_status(psb_unsorted_)
     
     return
     
diff --git a/base/modules/psb_d_base_mat_mod.f90 b/base/modules/psb_d_base_mat_mod.f90
index ed60940f..304b02b3 100644
--- a/base/modules/psb_d_base_mat_mod.f90
+++ b/base/modules/psb_d_base_mat_mod.f90
@@ -1873,6 +1873,7 @@ contains
     call a%set_nrows(izero)
     call a%set_ncols(izero)
     call a%set_nzeros(izero)
+    call a%set_sort_status(psb_unsorted_)
     
     return
     
@@ -1904,8 +1905,9 @@ contains
     call move_alloc(a%ia,itemp)
     call move_alloc(a%ja,a%ia)
     call move_alloc(itemp,a%ja)
-    
+        
     call a%set_sorted(.false.)
+    call a%set_sort_status(psb_unsorted_)
     
     return
     
diff --git a/base/modules/psb_s_base_mat_mod.f90 b/base/modules/psb_s_base_mat_mod.f90
index 640d61e2..10d4e40b 100644
--- a/base/modules/psb_s_base_mat_mod.f90
+++ b/base/modules/psb_s_base_mat_mod.f90
@@ -1873,6 +1873,7 @@ contains
     call a%set_nrows(izero)
     call a%set_ncols(izero)
     call a%set_nzeros(izero)
+    call a%set_sort_status(psb_unsorted_)
     
     return
     
@@ -1904,8 +1905,9 @@ contains
     call move_alloc(a%ia,itemp)
     call move_alloc(a%ja,a%ia)
     call move_alloc(itemp,a%ja)
-    
+        
     call a%set_sorted(.false.)
+    call a%set_sort_status(psb_unsorted_)
     
     return
     
diff --git a/base/modules/psb_z_base_mat_mod.f90 b/base/modules/psb_z_base_mat_mod.f90
index 81727804..fcc375fe 100644
--- a/base/modules/psb_z_base_mat_mod.f90
+++ b/base/modules/psb_z_base_mat_mod.f90
@@ -1873,6 +1873,7 @@ contains
     call a%set_nrows(izero)
     call a%set_ncols(izero)
     call a%set_nzeros(izero)
+    call a%set_sort_status(psb_unsorted_)
     
     return
     
@@ -1904,8 +1905,9 @@ contains
     call move_alloc(a%ia,itemp)
     call move_alloc(a%ja,a%ia)
     call move_alloc(itemp,a%ja)
-    
+        
     call a%set_sorted(.false.)
+    call a%set_sort_status(psb_unsorted_)
     
     return