diff --git a/std/pile.c b/std/pile.c
index dcfe5ef..567fd39 100644
--- a/std/pile.c
+++ b/std/pile.c
@@ -117,7 +117,7 @@
   ::reset();
   // wenn nur noch unsichtbare items im Haufen: aufloesen
   if (!sizeof(filter(all_inventory(), function int (object o)
-          { return !o->short();} )))
+          { return stringp(o->short());} )))
     remove(1);
 
 }