Index: set_properties.msn
===================================================================
--- set_properties.msn	(revision 63)
+++ set_properties.msn	(revision 64)
@@ -70,8 +70,6 @@
 				};
 			}
 
-			my $maxnumber_ = 0;
-
 			# Теперь надо просмотреть все аргументы - а вдруг это то, что нам нужно...
 			foreach my $arg (keys(%{ $SETS })) {
 				# Разбиваем все на части, отделяем...
@@ -111,6 +109,11 @@
 			}
 
 			if ( scalar(keys(%{ $IMAGES })) > 0) {
+				my $maxnumber = 0;
+				for ( 1..100 ) {
+					$maxnumber = $_		if exists $IMAGES->{"image_$_"} && $_ > $maxnumber;
+				}
+				$IMAGES->{maxnumber} = $maxnumber;
 				local $Data::Dumper::Indent = 0;
 				$object->{$name} = Data::Dumper::Dumper($IMAGES);
 			}