--- trunk/lib/WebPAC/Input.pm	2007/05/26 10:40:01	844
+++ trunk/lib/WebPAC/Input.pm	2007/05/27 14:44:58	855
@@ -540,7 +540,7 @@
 			}
 
 			$o;
-		} sort { $a cmp $b } keys %{ $s->{fld} }
+		} sort { $a <=> $b } keys %{ $s->{fld} }
 	);
 
 	$log->debug( sub { dump($s) } );