--- deliantra/gde/GCE/Util.pm	2006/06/01 14:33:14	1.18
+++ deliantra/gde/GCE/Util.pm	2006/08/14 18:52:48	1.20
@@ -158,7 +158,10 @@
 sub arch_is_floor {
    my ($a) = @_;
    my $ar = Crossfire::arch_attr $a;
-   return (substr $ar->{name}, 0, 5) eq 'Floor';
+   return (
+     (substr $ar->{name}, 0, 5) eq 'Floor'
+     or (substr $ar->{name}, 0, 10) eq 'Shop Floor'
+   )
 }
 
 sub arch_is_connector {