From b996b7ff5f3f13cbd9a6cdffb441226aa5c68da7 Mon Sep 17 00:00:00 2001
From: Anton Dyudin <ohAitch@gmail.com>
Date: Wed, 3 Jun 2015 11:44:40 -0700
Subject: [PATCH] fix %url speech type change

---
 base/ape/bit/core.hook         | 7 +------
 base/mar/talk-report/door.hook | 2 +-
 2 files changed, 2 insertions(+), 7 deletions(-)

diff --git a/base/ape/bit/core.hook b/base/ape/bit/core.hook
index 08c83e2da6..37d946135a 100644
--- a/base/ape/bit/core.hook
+++ b/base/ape/bit/core.hook
@@ -6,13 +6,8 @@
 /-  *talk, *bit-api
 /+  talk, sole, http, mean
 !:
-
-
 ::::  sivtyv-barnel
   ::  be sure to have oauth2-code markk
-
-
-
 |%
 ++  axle  
 
@@ -86,7 +81,7 @@ $:  cred=(unit ,[app-secret=@t client-id=@t])
   :-  %-  publish
       :~  [%lin & 'secret and client id saved successfully']
           [%lin & 'please click on the url below to continue authentication']
-          [%url prl] 
+          [%url prl ~] 
       ==
   ~
 ::
diff --git a/base/mar/talk-report/door.hook b/base/mar/talk-report/door.hook
index 8467761465..c039f656f6 100644
--- a/base/mar/talk-report/door.hook
+++ b/base/mar/talk-report/door.hook
@@ -89,7 +89,7 @@
       ~|  stub/-.a
       ?+  -.a  !!
         %lin  (jobe say/[%b p.a] txt/[%s q.a] ~)
-        %url  (jobe url/[%s (crip (earn p.a))] ~)
+        %url  (jobe url/[%s (crip (earf p.a))] ~)
         %exp  (jobe code/[%s p.a] ~)
         %app  (jobe txt/[%s p.a] ~)
         ::  %inv  (jobe ship/(jope p.a) party/[%s q.a] ~)