fix some tests broken by the prepend change.

basis/http/http.factor

@@ -144,7 +144,7 @@ redirects ;
     pick header>> set-at ;
 
 : set-basic-auth ( request username password -- request )
-    ":" glue >base64 "Basic " prepend "Authorization" set-header ;
+    ":" glue >base64 "Basic " "" prepend-as "Authorization" set-header ;
 
 : <request> ( -- request )
     request new

extra/asn1/asn1.factor

@@ -153,18 +153,18 @@ SYMBOL: end
 GENERIC: >ber ( obj -- byte-array )
 M: fixnum >ber ( n -- byte-array )
     >128-ber dup length 2 swap 2array
-    "cc" pack-native prepend ;
+    "cc" pack-native B{ } prepend-as ;
 
 : >ber-enumerated ( n -- byte-array )
-    >128-ber >byte-array dup length 10 swap 2array
-    "CC" pack-native prepend ;
+    >128-ber dup length 10 swap 2array
+    "CC" pack-native B{ } prepend-as ;
 
 : >ber-length-encoding ( n -- byte-array )
     dup 127 <= [
         1array "C" pack-be
     ] [
         1array "I" pack-be 0 swap remove dup length
-        0x80 + 1array "C" pack-be prepend
+        0x80 + 1array "C" pack-be B{ } prepend-as
     ] if ;
 
 ! =========================================================
@@ -172,11 +172,11 @@ M: fixnum >ber ( n -- byte-array )
 ! =========================================================
 
 M: bignum >ber ( n -- byte-array )
-    >128-ber >byte-array dup length
+    >128-ber dup length
     dup 126 > [
         "range error in bignum" throw
     ] [
-        2 swap 2array "CC" pack-native prepend
+        2 swap 2array "CC" pack-native B{ } prepend-as
     ] if ;
 
 ! =========================================================

extra/gpu/render/render.factor

@@ -217,7 +217,7 @@ M: uniform-tuple (bind-uniforms)
 
 : all-uniform-tuple-slots ( class -- slots )
     dup "uniform-tuple-slots" word-prop
-    [ swap superclass all-uniform-tuple-slots prepend ] [ drop { } ] if* ;
+    [ [ superclass all-uniform-tuple-slots ] dip append ] [ drop { } ] if* ;
 
 DEFER: uniform-texture-accessors
 

extra/mason/report/report.factor

@@ -8,7 +8,7 @@ combinators.short-circuit literals splitting ;
 IN: mason.report
 
 : git-link ( id -- link )
-    [ "http://github.com/slavapestov/factor/commit/" prepend ] keep
+    [ "http://github.com/slavapestov/factor/commit/" "" prepend-as ] keep
     [XML <a href=<->><-></a> XML] ;
 
 : common-report ( -- xml )