Fix profiler

diff --git a/basis/ui/tools/profiler/profiler.factor b/basis/ui/tools/profiler/profiler.factor
index f99cb6b368875bc3000c496745feb0d24f314090..4eb5833ed0fefb746efcd9605e8a547a513fb940 100644 (file)
--- a/basis/ui/tools/profiler/profiler.factor
+++ b/basis/ui/tools/profiler/profiler.factor
@@ -87,7 +87,7 @@ M: method-renderer column-titles drop { "" "Method" "Count" } ;
     ] keep <profiler-model> ;
 
 : <profiler-table> ( model renderer -- table )
-    [ first present ] <search-table>
+    [ dup [ first present ] when ] <search-table>
         [ invoke-primary-operation ] >>action ;
 
 : <profiler-filter-model> ( counts profiler -- model' )