--- deliantra/gde/GCE/Util.pm	2006/03/21 01:41:25	1.11
+++ deliantra/gde/GCE/Util.pm	2006/03/23 11:57:13	1.12
@@ -111,7 +111,7 @@
 sub arch_is_floor {
    my ($a) = @_;
    my $ar = Crossfire::arch_attr $a;
-   return $ar->{name} eq 'Floor';
+   return (substr $ar->{name}, 0, 5) eq 'Floor';
 #return $Crossfire::ARCH{$a->{_name}}->{is_floor};
 }