From 6c0d8ec6bfe9287435fd6bce552899ff86ccf7ea Mon Sep 17 00:00:00 2001
From: Anton Dyudin <ohAitch@gmail.com>
Date: Mon, 7 Dec 2015 14:19:14 -0800
Subject: [PATCH] fix #634 gall |mass, kiln |mv

---
 arvo/gall.hoon | 14 +++-----------
 lib/kiln.hoon  |  2 +-
 2 files changed, 4 insertions(+), 12 deletions(-)

diff --git a/arvo/gall.hoon b/arvo/gall.hoon
index f77502516..29d95e2e0 100644
--- a/arvo/gall.hoon
+++ b/arvo/gall.hoon
@@ -1218,17 +1218,9 @@
     :^  hen  %give  %mass
     :-  %gall
     :-  %|
-    %-  |=  a=(list (list mass))  ^-  (list mass)      :: XX single-home
-        =+  a2=a
-        ?~  a  !!
-        ?~  i.a  ~
-        :_  $(a (turn a2 tail))
-        :-  p.i.i.a
-        ?~  -.q.i.i.a  
-          [%& (turn (turn a2 head) |=(b=mass ?~(-.q.b p.q.b !!)))]
-        [%| $(a (turn (turn a2 head) |=(b=mass ?~(-.q.b !! p.q.b))))]
-    %+  turn  (~(tap by pol.all))
-    |=  [@ mast]
+    %+  turn  (~(tap by pol.all))     :: XX single-home
+    |=  [our=@ mast]  ^-  mass
+    :+  (scot %p our)  %|
     :~  foreign/`sap
         blocked/[%| (sort :_(aor (~(tap by (~(run by wub) |=(sofa `+<))))))]
         active/[%| (sort :_(aor (~(tap by (~(run by bum) |=(seat `+<))))))]
diff --git a/lib/kiln.hoon b/lib/kiln.hoon
index 3eaa2b091..0f9358153 100644
--- a/lib/kiln.hoon
+++ b/lib/kiln.hoon
@@ -142,7 +142,7 @@
   |=  [input=path output=path] 
   %+  do-info  "moved"
   ?>  =(-:(flop input) -:(flop output))
-  %+  furl  (fray output)
+  %+  furl  (fray input)
   (foal output -:(flop input) %noun .^(%cx input))
 ::
 ++  poke-label