gistfile1.none

diff --git a/src/NQP/Actions.pm b/src/NQP/Actions.pm
index a982234..d6d4afd 100644
--- a/src/NQP/Actions.pm
+++ b/src/NQP/Actions.pm
@@ -54,7 +54,7 @@ class NQP::Actions is HLL::Actions {
         # compilation unit that is using this one will then replace it
         # with its view later (or be in a position to restore it).
         $unit.loadinit().push(PAST::Op.new(
-            :pasttype('bind'),
+            :pasttype('bind_6model'),
             PAST::Var.new( :name('GLOBAL'), :namespace([]), :scope('package') ),
             $*SC.get_slot_past_for_object($*PACKAGE)
         ));
@@ -326,7 +326,7 @@ class NQP::Actions is HLL::Actions {
         }
         unless $block.arity {
             $block.unshift(
-                PAST::Op.new( :pasttype('bind'),
+                PAST::Op.new( :pasttype('bind_6model'),
                     PAST::Var.new( :scope('lexical'), :name('$!'), :isdecl(1) ),
                     PAST::Var.new( :scope('lexical'), :name('$_')),
                 ),
@@ -345,7 +345,7 @@ class NQP::Actions is HLL::Actions {
                         $block,
                         PAST::Var.new( :scope('register'), :name('exception')),
                     ),
-                    PAST::Op.new( :pasttype('bind'),
+                    PAST::Op.new( :pasttype('bind_6model'),
                         PAST::Var.new( :scope('keyed'),
                             PAST::Var.new( :scope('register'), :name('exception')),
                             'handled'
@@ -371,7 +371,7 @@ class NQP::Actions is HLL::Actions {
             $past.handlers([PAST::Control.new(
                     :handle_types_except('CONTROL'),
                     PAST::Stmts.new(
-                        PAST::Op.new( :pasttype('bind'),
+                        PAST::Op.new( :pasttype('bind_6model'),
                             PAST::Var.new( :scope('keyed'),
                                 PAST::Var.new( :scope('register'), :name('exception')),
                                 'handled'
@@ -778,7 +778,7 @@ class NQP::Actions is HLL::Actions {
                         # it per invocation.
                         $*SC.install_package_routine($*PACKAGE, $name, $past);
                         @BLOCK[0][0].push(PAST::Op.new(
-                            :pasttype('bind'),
+                            :pasttype('bind_6model'),
                             lexical_package_lookup([$name], $/),
                             PAST::Var.new( :name($name), :scope('lexical') )
                         ));
@@ -1543,7 +1543,7 @@ class NQP::RegexActions is Regex::P6Regex::Actions {
                         :name('MATCH'),
                         :pasttype('callmethod')
                     ),
-                    :pasttype('bind')
+                    :pasttype('bind_6model')
                 ),
                 $block
             );
diff --git a/src/NQP/Grammar.pm b/src/NQP/Grammar.pm
index f70da68..41a9099 100644
--- a/src/NQP/Grammar.pm
+++ b/src/NQP/Grammar.pm
@@ -704,8 +704,8 @@ grammar NQP::Grammar is HLL::Grammar {
     token infix:sym<=>    {
         <sym> <.panic: 'Assignment ("=") not supported in NQP, use ":=" instead'>
     }
-    token infix:sym<:=>   { <sym>  <O('%assignment, :pasttype<bind>')> }
-    token infix:sym<::=>  { <sym>  <O('%assignment, :pasttype<bind>')> }
+    token infix:sym<:=>   { <sym>  <O('%assignment, :pasttype<bind_6model>')> }
+    token infix:sym<::=>  { <sym>  <O('%assignment, :pasttype<bind_6model>')> }
 
     token infix:sym<,>    { <sym>  <O('%comma, :pasttype<list>')> }
 
diff --git a/src/NQP/SymbolTable.pm b/src/NQP/SymbolTable.pm
index a3c5754..7fd6dfc 100644
--- a/src/NQP/SymbolTable.pm
+++ b/src/NQP/SymbolTable.pm
@@ -79,7 +79,7 @@ class NQP::SymbolTable is HLL::Compiler::SerializationContextBuilder {
             $path := PAST::Op.new(:pirop('nqp_get_package_through_who PPs'), $path, ~$_);
         }
         self.add_event(:deserialize_past(PAST::Op.new(
-            :pasttype('bind'),
+            :pasttype('bind_6model'),
             PAST::Var.new(
                 :scope('keyed'),
                 PAST::Op.new( :pirop('get_who PP'), $path ),
@@ -125,7 +125,7 @@ class NQP::SymbolTable is HLL::Compiler::SerializationContextBuilder {
     # specified name.
     method install_package_routine($package, $name, $past_block) {
         my $fixup := PAST::Op.new(
-            :pasttype('bind'),
+            :pasttype('bind_6model'),
             PAST::Var.new(
                 :scope('keyed'),
                 PAST::Op.new( :pirop('get_who PP'), self.get_slot_past_for_object($package) ),
@@ -416,7 +416,7 @@ class NQP::SymbolTable is HLL::Compiler::SerializationContextBuilder {
                     PAST::Op.new( :pirop('get_class Ps'), 'NQPLexPad' )
                 ),
                 PAST::Op.new(
-                    :pasttype('bind'),
+                    :pasttype('bind_6model'),
                     PAST::Var.new( :name('cur_sc'), :scope('register'), :isdecl(1) ),
                     PAST::Op.new( :pirop('nqp_create_sc Ps'), self.handle() )
                 ),
diff --git a/src/PAST/SixModelPASTExtensions.pir b/src/PAST/SixModelPASTExtensions.pir
index 622e619..1df54b8 100644
--- a/src/PAST/SixModelPASTExtensions.pir
+++ b/src/PAST/SixModelPASTExtensions.pir
@@ -138,3 +138,36 @@ some PAST that will produce it or a name that it can be looked up by.
     ops.'result'(bindpost)
     .return (ops)
 .end
+
+.sub 'bind_6model' :method :multi(_, ['PAST';'Op'])
+    .param pmc node
+    .param pmc options         :slurpy :named
+
+    .local pmc ops, lpast, rpast, lpost, rpost
+    lpast = node[0]
+    rpast = node[1]
+
+    $P0 = get_hll_global ['POST'], 'Ops'
+    ops = $P0.'new'('node'=>node)
+
+    .local string coerce_type
+    coerce_type = 'P'
+    $I0 = isa lpast, ['PAST';'Var']
+    unless $I0 goto have_coerce_type
+    $S0 = lpast.'scope'()
+    unless $S0 == 'attribute_6model' goto have_coerce_type
+    (coerce_type) = self.'attribute_6model_type'(lpast)
+  have_coerce_type:
+
+    rpost = self.'as_post'(rpast, 'rtype'=>coerce_type)
+    rpost = self.'coerce'(rpost, coerce_type)
+    ops.'push'(rpost)
+
+    lpast.'lvalue'(1)
+    lpost = self.'as_post'(lpast, 'bindpost'=>rpost)
+    ops.'push'(lpost)
+    ops.'result'(lpost)
+    .return (ops)
+.end
+
+