--- trunk2/lib/WebPAC/Tree.pm	2004/09/15 22:36:23	454
+++ trunk2/lib/WebPAC/Tree.pm	2004/09/20 19:13:27	455
@@ -194,10 +194,15 @@
 
 	my ($level,$start_code) = @_;
 
-	my $next_level = $level + 1;
-
 	my $log = $self->_get_logger();
 
+	if (! defined($level)) {
+		$log->warn("level is undef, stoping recursion...");
+		return;
+	}
+
+	my $next_level = $level + 1;
+
 	$log->logconfess("need level") unless (defined($level));
 	$log->logconfess("need start_code") unless (defined($start_code));