--- a/account.pm	Mon Nov 28 15:04:40 2011 +0100
+++ b/account.pm	Tue Nov 29 13:19:44 2011 +0100
@@ -471,6 +471,7 @@
             my $elem = '';
             $elem = shift @q while defined $elem and $elem ne 'STORAGE';
             my ( $used, $max ) = map { int( $_ / 1024 ) } @q[ 0 .. 1 ];
+            $max ||= 1;
             print ", quota '$qr': $used/${max}MB "
               . int( 100 * $used / $max ) . "%";
             $has_quota = 1;